home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / wgdb-42.lha / wgdb-4.2 / bfd / core.c < prev    next >
C/C++ Source or Header  |  1992-09-11  |  2KB  |  86 lines
  1. /* Core file generic interface routines for BFD.
  2.    Copyright (C) 1990-1991 Free Software Foundation, Inc.
  3.    Written by Cygnus Support.
  4.  
  5. This file is part of BFD, the Binary File Descriptor library.
  6.  
  7. This program is free software; you can redistribute it and/or modify
  8. it under the terms of the GNU General Public License as published by
  9. the Free Software Foundation; either version 2 of the License, or
  10. (at your option) any later version.
  11.  
  12. This program is distributed in the hope that it will be useful,
  13. but WITHOUT ANY WARRANTY; without even the implied warranty of
  14. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15. GNU General Public License for more details.
  16.  
  17. You should have received a copy of the GNU General Public License
  18. along with this program; if not, write to the Free Software
  19. Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  20.  
  21. /*doc*
  22. @section Core files
  23. Buff output this facinating topic
  24. */
  25.  
  26. #include "bfd.h"
  27. #include "sysdep.h"
  28. #include "libbfd.h"
  29.  
  30. /** Some core file info commands */
  31.  
  32. /*proto* bfd_core_file_failing_command
  33. Returns a read-only string explaining what program was running when
  34. it failed and produced the core file being read
  35.  
  36. *; PROTO(CONST char *, bfd_core_file_failing_command, (bfd *));
  37. */
  38.  
  39. CONST char *
  40. DEFUN(bfd_core_file_failing_command,(abfd),
  41.       bfd *abfd)
  42. {
  43.   if (abfd->format != bfd_core) {
  44.     bfd_error = invalid_operation;
  45.     return NULL;
  46.   }
  47.   return BFD_SEND (abfd, _core_file_failing_command, (abfd));
  48. }
  49.  
  50. /*proto* bfd_core_file_failing_signal
  51. Returns the signal number which caused the core dump which generated
  52. the file the BFD is attached to.
  53.  
  54. *; PROTO(int, bfd_core_file_failing_signal, (bfd *));
  55. */
  56. int
  57. bfd_core_file_failing_signal (abfd)
  58.      bfd *abfd;
  59. {
  60.   if (abfd->format != bfd_core) {
  61.     bfd_error = invalid_operation;
  62.     return 0;
  63.   }
  64.   return BFD_SEND (abfd, _core_file_failing_signal, (abfd));
  65. }
  66.  
  67.  
  68. /*proto* core_file_matches_executable_p
  69. Returns @code{true} if the core file attached to @var{core_bfd} was
  70. generated by a run of the executable file attached to @var{exec_bfd},
  71. or else @code{false}.
  72. *; PROTO(boolean, core_file_matches_executable_p,
  73.     (bfd *core_bfd, bfd *exec_bfd));
  74. */
  75. boolean
  76. core_file_matches_executable_p (core_bfd, exec_bfd)
  77.      bfd *core_bfd, *exec_bfd;
  78. {
  79.   if ((core_bfd->format != bfd_core) || (exec_bfd->format != bfd_object)) {
  80.     bfd_error = wrong_format;
  81.     return false;
  82.   }
  83.  
  84.   return BFD_SEND (core_bfd, _core_file_matches_executable_p, (core_bfd, exec_bfd));
  85. }
  86.